home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 33MASTER.DSK / RETRIEVE TEXT.bas < prev   
BASIC Source File  |  2014-09-09  |  417b  |  17 lines
  1. 10 D$ =  CHR$(4): REM  CTRL D
  2. 12  PRINT "THIS PROGRAM RETRIEVES TEXT FILES"
  3. 14  PRINT "CREATED BY THE 'CREATE TEXT' PROGRAM."
  4. 16  PRINT "MON C,I,O IS IN EFFECT."
  5. 18  PRINT 
  6. 20  INPUT "NAME OF TEXT FILE? ";Z$
  7. 22  PRINT D$;"MON C,I,O"
  8. 24  PRINT 
  9. 30  PRINT D$;"OPEN ";Z$
  10. 40  PRINT D$;"READ ";Z$
  11. 50  INPUT I
  12. 55  DIM A$(I)
  13. 60  FOR J = 1 TO I
  14. 70 : INPUT A$(J)
  15. 80  NEXT J
  16. 90  PRINT D$;"CLOSE ";Z$
  17. 100  PRINT D$;"NOMON C,I,O"